home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mail Madness! 4
/
Mail_Madness_04_19xx_-_Side_B.d64
/
las vegas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
28KB
|
1,156 lines
1 fori=54272to54296:pokei,0:next
2 poke54296,15:vd=1:ti$="000000"
3 goto299
4 fork=1to15
5 poke53280,k:forl=1to10:nextl
6 nextk
7 return
8 n=int(rnd(ti)*13+1)
9 s=int(rnd(ti)*4+1)
10 c=n*s
11 forcd=0tok-1
12 ifcc(cd)=cthen8
13 nextcd
14 cc(k)=c:k=k+1
15 return
16 printtab(t)"[144][207][183][183][183][183][183][208]"
17 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
18 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
19 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
20 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
21 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
22 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
23 printtab(t)"[144][180][150][166][166][166][166][166][144][170]"
24 printtab(t)"[144][204][175][175][175][175][175][186]"
25 return
26 ifs=1thens$="[216]":print"[144]"
27 ifs=2thens$="[218]":print"[150]"
28 ifs=3thens$="[211]":print"[150]"
29 ifs=4thens$="[193]":print"[144]"
30 ifn=1then43
31 ifn=2then51
32 ifn=3then59
33 ifn=4then67
34 ifn=5then75
35 ifn=6then83
36 ifn=7then91
37 ifn=8then99
38 ifn=9then107
39 ifn=10then115
40 ifn=11then123
41 ifn=12then131
42 ifn=13then139
43 printtab(t+1)"a "
44 printtab(t+1)" "
45 printtab(t+1)" "
46 printtab(t+1)" ";s$;" "
47 printtab(t+1)" "
48 printtab(t+1)" "
49 printtab(t+1)" a"
50 return
51 printtab(t+1)"2 "
52 printtab(t+1)" "
53 printtab(t+1)" ";s$;" "
54 printtab(t+1)" "
55 printtab(t+1)" ";s$;" "
56 printtab(t+1)" "
57 printtab(t+1)" 2"
58 return
59 printtab(t+1)"3 "
60 printtab(t+1)" "
61 printtab(t+1)" ";s$;" "
62 printtab(t+1)" ";s$;" "
63 printtab(t+1)" ";s$;" "
64 printtab(t+1)" "
65 printtab(t+1)" 3"
66 return
67 printtab(t+1)"4 "
68 printtab(t+1)" "
69 printtab(t+1)" ";s$;" ";s$;" "
70 printtab(t+1)" "
71 printtab(t+1)" ";s$;" ";s$;" "
72 printtab(t+1)" "
73 printtab(t+1)" 4"
74 return
75 printtab(t+1)"5 "
76 printtab(t+1)" "
77 printtab(t+1)" ";s$;" ";s$;" "
78 printtab(t+1)" ";s$;" "
79 printtab(t+1)" ";s$;" ";s$;" "
80 printtab(t+1)" "
81 printtab(t+1)" 5"
82 return
83 printtab(t+1)"6 "
84 printtab(t+1)" ";s$;" ";s$;" "
85 printtab(t+1)" "
86 printtab(t+1)" ";s$;" ";s$;" "
87 printtab(t+1)" "
88 printtab(t+1)" ";s$;" ";s$;" "
89 printtab(t+1)" 6"
90 return
91 printtab(t+1)"7 "
92 printtab(t+1)" ";s$;" ";s$;" "
93 printtab(t+1)" ";s$;" "
94 printtab(t+1)" ";s$;" ";s$;" "
95 printtab(t+1)" "
96 printtab(t+1)" ";s$;" ";s$;" "
97 printtab(t+1)" 7"
98 return
99 printtab(t+1)"8 "
100 printtab(t+1)" ";s$;" ";s$;" "
101 printtab(t+1)" ";s$;" "
102 printtab(t+1)" ";s$;" ";s$;" "
103 printtab(t+1)" ";s$;" "
104 printtab(t+1)" ";s$;" ";s$;" "
105 printtab(t+1)" 8"
106 return
107 printtab(t+1)"9";s$;" ";s$;" "
108 printtab(t+1)" "
109 printtab(t+1)" ";s$;" ";s$;" "
110 printtab(t+1)" ";s$;" "
111 printtab(t+1)" ";s$;" ";s$;" "
112 printtab(t+1)" "
113 printtab(t+1)" ";s$;" ";s$;"9"
114 return
115 printtab(t+1)"1";s$;" ";s$;" "
116 printtab(t+1)"0 ";s$;" "
117 printtab(t+1)" ";s$;" ";s$;" "
118 printtab(t+1)" "
119 printtab(t+1)" ";s$;" ";s$;" "
120 printtab(t+1)" ";s$;" 1"
121 printtab(t+1)" ";s$;" ";s$;"0"
122 return
123 printtab(t+1)"j "
124 printtab(t+1)" j "
125 printtab(t+1)" a "
126 printtab(t+1)" ";s$;" ";s$;" "
127 printtab(t+1)" c "
128 printtab(t+1)" k "
129 printtab(t+1)" j":n=10
130 return
131 printtab(t+1)"q "
132 printtab(t+1)" q "
133 printtab(t+1)" u "
134 printtab(t+1)" ";s$;"e";s$;" "
135 printtab(t+1)" e "
136 printtab(t+1)" n "
137 printtab(t+1)" q":n=10
138 return
139 printtab(t+1)"k "
140 printtab(t+1)" k "
141 printtab(t+1)" i "
142 printtab(t+1)" ";s$;" ";s$;" "
143 printtab(t+1)" n "
144 printtab(t+1)" g "
145 printtab(t+1)" k":n=10
146 return
147 d=int(rnd(ti)*6+1)
148 ifd=1then155
149 ifd=2then163
150 ifd=3then171
151 ifd=4then179
152 ifd=5then187
153 ifd=6then195
154 goto147
155 printtab(t)" "
156 printtab(t)" [146] "
157 printtab(t)" [146] "
158 printtab(t)" [146] [209] "
159 printtab(t)" [146] "
160 printtab(t)" [146] "
161 printtab(t)" "
162 return
163 printtab(t)" "
164 printtab(t)" [146] "
165 printtab(t)" [146] [209] "
166 printtab(t)" [146] "
167 printtab(t)" [146] [209] "
168 printtab(t)" [146] "
169 printtab(t)" "
170 return
171 printtab(t)" "
172 printtab(t)" [146] "
173 printtab(t)" [146] [209] "
174 printtab(t)" [146] [209] "
175 printtab(t)" [146] [209] "
176 printtab(t)" [146] "
177 printtab(t)" "
178 return
179 printtab(t)" "
180 printtab(t)" [146] "
181 printtab(t)" [146] [209] [209] "
182 printtab(t)" [146] "
183 printtab(t)" [146] [209] [209] "
184 printtab(t)" [146] "
185 printtab(t)" "
186 return
187 printtab(t)" "
188 printtab(t)" [146] "
189 printtab(t)" [146] [209] [209] "
190 printtab(t)" [146] [209] "
191 printtab(t)" [146] [209] [209] "
192 printtab(t)" [146] "
193 printtab(t)" "
194 return
195 printtab(t)" "
196 printtab(t)" [146] "
197 printtab(t)" [146] [209] [209] "
198 printtab(t)" [146] [209] [209] "
199 printtab(t)" [146] [209] [209] "
200 printtab(t)" [146] "
201 printtab(t)" "
202 return
203 print:printtab(t+1)" "
204 printtab(t+1)" "
205 printtab(t+1)" "
206 printtab(t+1)" "
207 printtab(t+1)" "
208 printtab(t+1)" "
209 printtab(t+1)" "
210 goto501
211 return
212 print"[144]":printtab(t+1)" "
213 printtab(t+1)" "
214 printtab(t+1)" "
215 printtab(t+1)" [146]"
216 printtab(t+1)" "
217 printtab(t+1)" "
218 printtab(t+1)" "
219 return
220 print"[144]":printtab(t+1)" "
221 printtab(t+1)" "
222 printtab(t+1)" [146]"
223 printtab(t+1)" "
224 printtab(t+1)" [146]"
225 printtab(t+1)" "
226 printtab(t+1)" "
227 return
228 print"[144]":printtab(t+1)" "
229 printtab(t+1)" [146]"
230 printtab(t+1)" "
231 printtab(t+1)" [146]"
232 printtab(t+1)" "
233 printtab(t+1)" [146]"
234 printtab(t+1)" "
235 return
236 print" place your bet (1-9) ";
237 geta$:ifa$=""then237
238 ifa$="1"thenb=1:goto244
239 ifa$="2"thenb=2:goto244
240 ifa$="3"thenb=3:goto244
241 ifa$="4"thenb=4:goto244
242 ifa$="5"thenb=5:goto244
243 goto265
244 printtab(27)" bet:";b;"[157] "
245 return
246 tl=0:q=0
247 forl=1to5:ifpp(l,i)>10thenpp(l,i)=10
248 ifpp(l,i)=1thenq=q+1:tl=tl+10
249 tl=tl+pp(l,i)
250 nextl
251 iftl<=21thenreturn
252 ifq<=0thenreturn
253 tl=tl-10:q=q-1:goto251
254 tl=0
255 forl=1to3:ifpp(l,i)>9thenpp(l,i)=0
256 tl=tl+pp(l,i)
257 iftl>9thentl=tl-10
258 nextl
259 return
260 v=0:h=n:print""
261 ifh>10thenv=v+1:h=h-10:goto261
262 forl=0tov:print"":nextl
263 k=4*h-4:ifn<10thenk=k+1
264 printtab(k)"[145]"n;"[157][157][157][157][146] ":on tc goto518,538,477,614
265 ifa$="6"thenb=6:goto244
266 ifa$="7"thenb=7:goto244
267 ifa$="8"thenb=8:goto244
268 ifa$="9"thenb=9:goto244
269 goto237
270 n=int(rnd(ti)*38)
271 print""
272 ifn=2thenprint"[144]"
273 ifn=4thenprint"[144]"
274 ifn=6thenprint"[144]"
275 ifn=8thenprint"[144]"
276 ifn=10thenprint"[144]"
277 ifn=11thenprint"[144]"
278 ifn=13thenprint"[144]"
279 ifn=15thenprint"[144]"
280 ifn=17thenprint"[144]"
281 ifn=20thenprint"[144]"
282 ifn=24thenprint"[144]"
283 ifn=26thenprint"[144]"
284 ifn=28thenprint"[144]"
285 ifn=29thenprint"[144]"
286 ifn=31thenprint"[144]"
287 ifn=33thenprint"[144]"
288 ifn=35thenprint"[144]"
289 ifn=22thenprint"[144]"
290 ifn=0thenprint""
291 ifn=37thenprint""
292 print""
293 fori=1to3:printtab(29)" ":next
294 print""
295 ifn=37thenprinttab(30)"00":return
296 ifn>9thenprinttab(29)"";n:return
297 ifn<10thenprinttab(30)"";n:return
298 return
299 dimcc(53),m(25),p(5,3):mm=50:xx=0
300 goto308
301 print"":t=20
302 gosub16:print"":ifd=1thengosub212
303 ifd=2thengosub220
304 ifd=3thengosub228
305 ifd>3thengosub203
306 fori=1to500:nexti
307 goto&1
308 poke53280,2:poke53281,1:print"[147]":goto318
309 geta$:ifa$="1"then328
310 ifa$="2"then693
311 ifa$="3"then431
312 ifa$="4"then787
313 ifa$="5"then893
314 ifa$="6"then988
315 ifa$="7"then1157
316 ifa$="8"then&12000
317 gosub4:goto309
318 print" you are in las vegas, with $";mm
319 print:print" what will you do?"
320 print:print:print" 1. play the slot machines"
321 print:print" 2. play blackjack"
322 print:print" 3. play keno"
323 print:print" 4. play poker"
324 print:print" 5. play chuck-a-luck"
325 print:print" 6. play baccarat"
326 print:print" 7. go home "
327 goto309
328 print"[147]";:poke53280,8:rem- slots
329 fori=1to11:print"[129] ":next
330 fori=40to440step40:poke55295+i,8:poke1023+i,224:nexti:o=0
331 fori=1to3:t=10*i-4:print"":gosub16:nexti
332 fori=1to500:nexti
333 print" payoff"
334 print"[144] [162][162] [162][162] [162][162]"
335 print"[144] [162][162] [162][162] [162][162] = 100"
336 print"[144] [162][162] [162][162] [162][162]"
337 print"[129][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
338 print"[144] [162][162] [162][162] [162][162]"
339 print"[144] [162][162] [162][162] [162][162] = 50"
340 print"[129][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
341 print"[144] [162][162] [162][162] [162][162] = 20"
342 print"[129][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
343 print
344 print" any bars = 10"
345 fori=1to14:j=40*i:poke55715+j,8:poke1443+j,224:nexti
346 print"":t=6:print"":gosub220
347 print"":t=16:print"":gosub203
348 print"":t=26:print"":gosub228
349 print"":printtab(20)"to play hit any key"
350 print"":printtab(25)"total: 0"
351 geta$:ifa$=""then351
352 fori=1to3:print"":t=10*i-4:gosub16:nexti:s=0
353 o=o-1:print"":printtab(25)"total:";o;"[157] "
354 print"":printtab(20)" 98 percent payout"
355 for j=1to1200:nextj
356 fori=1to3:t=10*i-4:print""
357 r=int(rnd(ti)*242+1)
358 ifr>100thend=0:gosub203:goto363
359 ifr>50thend=1:gosub212:goto362
360 ifr>10thend=2:gosub220:goto362
361 d=3:gosub228
362 goto505
363 s=s+d*10^(i-1):forj=1to600:nextj
364 nexti
365 ifs<111thenp=0:goto394
366 ifs=111thenp=20:goto394
367 ifs=222thenp=50:goto394
368 ifs=122thenp=10:goto394
369 ifs=123thenp=10:goto394
370 ifs=121thenp=10:goto394
371 ifs=131thenp=10:goto394
372 ifs=132thenp=10:goto394
373 ifs=133thenp=10:goto394
374 ifs=211thenp=10:goto394
375 ifs=212thenp=10:goto394
376 ifs=231thenp=10:goto394
377 ifs=221thenp=10:goto394
378 ifs=223thenp=10:goto394
379 ifs=232thenp=10:goto394
380 ifs=233thenp=10:goto394
381 ifs=311thenp=10:goto394
382 ifs=312thenp=10:goto394
383 ifs=313thenp=10:goto394
384 ifs=321thenp=10:goto394
385 ifs=322thenp=10:goto394
386 ifs=323thenp=10:goto394
387 ifs=331thenp=10:goto394
388 ifs=332thenp=10:goto394
389 ifs=333thenp=100:goto394
390 ifs=112thenp=10:goto394
391 ifs=113thenp=10:goto394
392 ifs=213thenp=10:goto394
393 p=0
394 o=o+p:ifp<1then404
395 forj=1top
396 gosub4
397 poke53280,8
398 print"":printtab(24)"payoff:";j;"[157] "
399 print""
400 printtab(25)"total:";o-p+j;"[157] "
401 td=1:goto481
402 nextj
403 poke53280,8
404 print"":printtab(24)"payoff:";p;"[157] "
405 print""
406 printtab(25)"total:";o;"[157] "
407 print"":printtab(21)"to quit - hit 'q'"
408 geta$:ifa$=""then408
409 ifa$="q"thenmm=mm+o:goto308
410 ifmm+o<=0thenmm=mm+o:goto1127
411 goto352
412 poke53280,2:poke53281,1
413 print"[147]";chr$(14)
414 print" [201]f you have received a [198][210][197][197] copy of"
415 print" this program from a friend, or other"
416 print" source, and you enjoy this game, then"
417 print" send a contribution of $5.00 to:"
418 print" [208]eter [193]. [210]udman"
419 print" 3745 [215]oodvale [210]oad"
420 print" [194]irmingham, [193][204] 35223"
421 print" [201]'m sure you'll agree that $5.00 is"
422 print" a small compensation for all the time"
423 print" and effort which [201]'ve put in to devel-"
424 print" op this program."
425 print" [212]hank you."
426 print" [208]eter [193]. [210]udman"
427 fori=1to18000:next
428 printchr$(142):ti$="000000"
429 goto308
430 geta$:ifa$=""then430
431 rem- keno
432 print"[147]":poke53280,15:poke53281,1:o=0
433 print"[147] keno":print" ----"
434 print" would you like to see ":print
435 print" the payoff tables?"
436 geta$:ifa$=""then436
437 ifa$="y"then667
438 ifa$="n"then440
439 goto436
440 print"[147] keno"
441 print:print" 1 2 3 4 5 6 7 8 910"
442 print:print"11121314151617181920"
443 print:print"21222324252627282930"
444 print:print"31323334353637383940"
445 print:print"41424344454647484950"
446 print:print"51525354555657585960"
447 print:print"61626364656667686970"
448 print:print"71727374757677787980"
449 fori=0to20:cc(i)=0:nexti:z=0
450 print" how many numbers":print
451 print" will you guess?":print:print" (1 to 9)"
452 geta$:ifa$=""then452
453 ifa$="1"thena=1:goto463
454 ifa$="2"thena=2:goto463
455 ifa$="3"thena=3:goto463
456 ifa$="4"thena=4:goto463
457 ifa$="5"thena=5:goto463
458 ifa$="6"thena=6:goto463
459 ifa$="7"thena=7:goto463
460 ifa$="8"thena=8:goto463
461 ifa$="9"thena=9:goto463
462 goto452
463 print""
464 fori=1to6:print" ":nexti
465 print""
466 print"enter your number";
467 inputn$
468 print""
469 fori=1to6:print" ":nexti
470 n=val(n$)
471 ifn<1orn>80then463
472 goto514
473 poke54277,1:poke54278,240:poke54273,51:poke54272,97:poke54276,17
474 for ss=1to100:next
475 poke54276,16
476 goto536
477 poke54277,1:poke54278,240:poke54273,34:poke54272,75:poke54276,17
478 for ss=1to100:next
479 poke54276,16
480 goto541
481 poke54277,1:poke54278,240:poke54273,34:poke54272,75:poke54276,17
482 for ss=1to50:next
483 poke54276,16
484 poke54277,1:poke54278,240:poke54273,38:poke54272,126:poke54276,17
485 for ss=1to50:next
486 poke54276,16
487 poke54277,1:poke54278,240:poke54273,43:poke54272,52:poke54276,17
488 for ss=1to50:next
489 poke54276,16
490 poke54277,1:poke54278,240:poke54273,45:poke54272,198:poke54276,17
491 for ss=1to50:next
492 poke54276,16
493 poke54277,1:poke54278,240:poke54273,51:poke54272,97:poke54276,17
494 for ss=1to50:next
495 poke54276,16
496 ifti<72000then500
499 goto412
500 ontdgoto402,588,747,779,739,882,976,1095,6
501 poke54277,1:poke54278,240:poke54273,34:poke54272,75:poke54276,17
502 for ss=1to100:next
503 poke54276,16
504 goto211
505 poke54277,1:poke54278,240:poke54273,51:poke54272,97:poke54276,17
506 for ss=1to100:next
507 poke54276,16
508 goto363
509 poke54277,1:poke54278,240:poke54273,51:poke54272,97:poke54276,17
510 poke54276,16
511 poke54277,1:poke54278,240:poke54273,34:poke54272,75:poke54276,17
512 poke54276,16
513 goto6
514 fori=0toz
515 ifn=cc(i)then463
516 nexti
517 print"":tc=1:goto260
518 cc(z+1)=n
519 z=z+1:ifz>=athen521
520 goto463
521 goto618
522 m=0:p=0:o=o-1
523 print"":print" total:";o;"[157] ";
524 forl=1to21:m(l)=0
525 r=int((rnd(ti)*80)+1)
526 m(l)=r:nextl
527 l=21
528 fork=1to20:forj=kto20
529 x=m(k):y=m(j+1)
530 ifx<>ythen534
531 m(j+1)=int(80*rnd(ti)+1)
532 y=m(j+1)
533 goto530
534 nextj:nextk
535 fori=1to20:forq=1to150:nextq
536 forj=1toa
537 ifm(i)=cc(j)thenn=cc(j):print"[158]":tc=2:goto260
538 ifm(i)=cc(j)theni=i+1:m=m+1:td=2:goto473
539 nextj
540 n=m(i):print"[129]":tc=3:goto260
541 nexti
542 ifa=1andm=1thenp=3
543 ifa=2andm=2thenp=12
544 ifa=3andm=2thenp=1
545 ifa=3andm=3thenp=42
546 ifa=4andm=2thenp=1
547 ifa=4andm=3thenp=3
548 ifa=4andm=4thenp=120
549 ifa=5andm=3thenp=1
550 ifa=5andm=4thenp=9
551 ifa=5andm=5thenp=800
552 ifa=6andm=3thenp=1
553 ifa=6andm=4thenp=4
554 ifa=6andm=5thenp=88
555 ifa=6andm=6thenp=1490
556 ifa=7andm=4thenp=2
557 ifa=7andm=5thenp=20
558 ifa=7andm=6thenp=350
559 ifa=7andm=7thenp=7000
560 ifa=8andm=5thenp=9
561 ifa=8andm=6thenp=90
562 ifa=8andm=7thenp=1490
563 ifa=8andm=8thenp=20000
564 ifa=9andm=5thenp=4
565 ifa=9andm=6thenp=44
566 ifa=9andm=7thenp=300
567 ifa=9andm=8thenp=4000
568 ifa=9andm=9thenp=22000
569 o=o+p
570 ifp>0goto579
571 print""
572 fori=1to7:print" ":nexti
573 print" ";
574 print""
575 print" there are no winners":print
576 print" you caught";m;"out of";a:print
577 print" total:";o;"[157] "
578 goto589
579 print""
580 fori=1to7:print" ":nexti
581 print" ";
582 print""
583 print" you win! your payoff is $";p:print
584 print" you caught";m;"out of";a:print
585 print" total:";o;"[157] "
586 w=p:ifw>50thenw=50
587 fori=1tow:gosub4:td=2:goto481
588 nexti
589 fori=1to2000:nexti:ifo+mm<=0then1127
590 print""
591 fori=1to6:print" ":nexti
592 print""
593 print" do you want to play again? "
594 geta$:ifa$=""then594
595 ifa$="n"thenmm=mm+o:goto308
596 ifa$="y"then598
597 goto593
598 print""
599 print" do you want the same numbers?"
600 geta$:ifa$=""then600
601 ifa$="n"then433
602 ifa$="y"then604
603 goto600
604 print""
605 print:print" 1 2 3 4 5 6 7 8 910[146]"
606 print:print"11121314151617181920[146]"
607 print:print"21222324252627282930[146]"
608 print:print"31323334353637383940[146]"
609 print:print"41424344454647484950[146]"
610 print:print"51525354555657585960[146]"
611 print:print"61626364656667686970[146]"
612 print:print"71727374757677787980[146]"
613 fori=1toa:n=cc(i):print"":tc=4:goto260
614 nexti
615 print""
616 print" "
617 goto521
618 print""
619 printtab(14)"payoff tables":ifa=1then628
620 ifa=2then631
621 ifa=3then633
622 ifa=4then636
623 ifa=5then640
624 ifa=6then644
625 ifa=7then649
626 ifa=8then654
627 ifa=9then659
628 print
629 printtab(16)"1 - 3"
630 goto665
631 print:printtab(16)"2 - 12"
632 goto665
633 print:printtab(16)"2 - 1"
634 printtab(16)"3 - 42"
635 goto665
636 print:printtab(16)"2 - 1"
637 printtab(16)"3 - 3"
638 printtab(16)"4 - 120"
639 goto665
640 print:printtab(16)"3 - 1"
641 printtab(16)"4 - 9"
642 printtab(16)"5 - 800"
643 goto665
644 print:printtab(16)"3 - 1"
645 printtab(16)"4 - 4"
646 printtab(16)"5 - 88"
647 printtab(16)"6 - 1490";
648 goto665
649 print:printtab(16)"4 - 2"
650 printtab(16)"5 - 20"
651 printtab(16)"6 - 350"
652 printtab(16)"7 - 7000";
653 goto665
654 print:printtab(16)"5 - 9"
655 printtab(16)"6 - 90"
656 printtab(16)"7 - 1490"
657 printtab(16)"8 - 20000";
658 goto665
659 printtab(16)"5 - 4"
660 printtab(16)"6 - 44"
661 printtab(16)"7 - 300"
662 printtab(16)"8 - 4000"
663 printtab(16)"9 - 22000";
664 goto665
665 goto522
666 goto691
667 print"[147] payoff tables":print" -------------"
668 print" guess pull pay [144] [146] guess pull pay"
669 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][144] [146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
670 print" 1 1 3 [144] [146] 7 4 2"
671 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146] 5 20"
672 print" 2 2 12 [144] [146] 6 350"
673 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146] 7 7000"
674 print" 3 2 1 [144] [146] "
675 print" 3 42 [144] [146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
676 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] [146] 8 5 9"
677 print" 4 2 1 [144] [146] 6 90"
678 print" 3 3 [144] [146] 7 1490"
679 print" 4 120 [144] [146] 8 20000"
680 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][144] [146] "
681 print" 5 3 1 [144] [146][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
682 print" 4 9 [144] [146] 9 5 4"
683 print" 5 800 [144] [146] 6 44"
684 print"[144][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][144] [146] 7 300"
685 print" 6 3 1 [144] [146] 8 4000"
686 print" 4 4 [144] [146] 9 22000"
687 print" 5 88 [144] [146] "
688 print" 6 1490 [144] [146] hit any key"
689 geta$:ifa$=""then689
690 goto440
691 geta$:ifa$=""then691
692 goto440
693 o=0:k=1:poke53280,5:poke53281,1:print"[147]";:rem - blackjack
694 fori=1to24:print" ":next
695 print" [146]"
696 fori=40to1000step40:poke55295+i,5:poke1023+i,224:nexti
697 fori=1to53:cc(i)=0:nexti:k=1
698 gosub236
699 fori=1to5
700 forj=1to3
701 pp(i,j)=0
702 nextj:nexti
703 print"":t=0:gosub16:print"":gosub16:fori=1to200:nexti
704 print"":gosub8:gosub26:pp(1,2)=n
705 t=8:print"":gosub16:print"":gosub16:fori=1to300:nexti
706 print"":gosub8:gosub26:pp(2,1)=n
707 print"":gosub8:gosub26:pp(2,2)=n
708 gosub8:pp(1,1)=n
709 i=2:gosub246:iftl=21then776
710 i=1:gosub246:iftl=21then780
711 j=2
712 print" h[146]it, s[146]tand, d[146]ouble? ":i=2
713 geta$:ifa$=""then713
714 ifa$="h"then718
715 ifa$="s"then724
716 ifa$="d"then725
717 goto713
718 i=2:j=j+1:ifj>5then748
719 t=j*8-8:print"":gosub16:form=1to300:nextm
720 t=j*8-8:print"":gosub8:gosub26:pp(j,2)=n
721 gosub246:iftl>21then729
722 ifj=5thenpt=tl:goto748
723 goto712
724 gosub246:pt=tl:goto748
725 ifj>2then712
726 b=2*b:t=16:print"":gosub16:gosub8:pp(3,2)=n
727 form=1to300:nextm:print"":gosub26
728 gosub246:pt=tl:goto748
729 rem- player bust
730 o=o-b:print" over 21 - you lose total:";o;"[157] "
731 pt=tl:goto748
732 rem- dealer stands
733 ifpt>dttheno=o+b:goto736
734 ifdt>pttheno=o-b:goto740
735 ifdt=ptthen742
736 print" you win with";pt;"[157] [146] total:";o;"[157] "
737 print" you win with";pt;"[157] [146] total:";o;"[157] "
738 gosub4:poke53280,5:td=5:goto481
739 goto785
740 print" dealer wins with";dt;" total:";o;"[157] "
741 goto785
742 print" push - no winner [146] total:";o;"[157] "
743 goto785
744 rem- dealer busts
745 o=o+b:print" dealer over - you win! total:";o;"[157] "
746 gosub4:poke53280,5:td=3:goto481
747 goto759
748 rem- player stands
749 t=0:print"":n=pp(1,1):gosub26
750 i=1:gosub246:dt=tl:ifpt>21then785
751 ifdt>=17then732
752 j=3
753 t=j*8-8:print"":gosub16:form=1to400:nextm
754 t=j*8-8:print"":gosub8:gosub26:pp(j,1)=n
755 gosub246:dt=tl:ifdt>21then744
756 ifdt>=17then732
757 ifj=5then732
758 j=j+1:goto753
759 fori=1to1500:nexti:ifo+mm<=0then1127
760 print" play again? "
761 geta$:ifa$=""then761
762 ifa$="y"then765
763 ifa$="n"thenmm=mm+o:goto308
764 goto761
765 fori=1to5
766 print""
767 forj=1to9
768 printtab(8*i-8)" [146]"
769 nextj
770 print""
771 forj=1to9
772 printtab(8*i-8)" [146]"
773 nextj
774 nexti
775 goto697
776 o=o+2*b
777 print" you have blackjack! total:";o;"[157] "
778 gosub4:poke53280,5:td=4:goto481
779 goto759
780 o=o-b
781 print"":t=0:n=pp(1,1):gosub26
782 print" dealer has blackjack total:";o;"[157] "
783 goto759
784 goto759
785 goto759
786 geta$:ifa$=""then786
787 print"[147]";:poke53280,5:rem- poker
788 fori=1to12:print" ":next
789 fori=40to480step40:poke55295+i,5:poke1023+i,224:nexti:o=0
790 print" payoff table":print" ------------"
791 print" royal flush 300":print" straight flush 50"
792 print"[129] four of a kind 25":print" full house 9"
793 print" flush 6":print" straight 4"
794 print" three of a kind 3":print" two pair 2":print" one pair 0.5"
795 for i=1to5:t=8*i-8:print"":gosub16:nexti:py=0
796 print"12345"
797 print"":printtab(25)"draw poker":printtab(25)"----------"
798 printtab(22)"to discard enter":printtab(22)"the card number"
799 printtab(22)"to draw/hold hit":printtab(22)" <space>"
800 fori=1to3:printtab(21)" ":nexti
801 o=o-1:printtab(26)"total:";o;"[157] ":k=1
802 fori=1to5:pp(i,1)=0:nexti
803 fori=1to5:t=8*i-8:gosub8:pp(i,1)=n:pp(i,2)=s:print"":gosub26:nexti:p=1
804 geta$:ifa$=""then804
805 ifa$=" "then813
806 ifa$="1"thenpp(1,1)=0:print"":t=0:gosub16:p=p+1
807 ifa$="2"thenpp(2,1)=0:print"":t=8:gosub16:p=p+1
808 ifa$="3"thenpp(3,1)=0:print"":t=16:gosub16:p=p+1
809 ifa$="4"thenpp(4,1)=0:print"":t=24:gosub16:p=p+1
810 ifa$="5"thenpp(5,1)=0:print"":t=32:gosub16:p=p+1
811 ifp>=5then813
812 goto804
813 for i=1to5
814 ifpp(i,1)=0then817
815 nexti
816 goto820
817 gosub8:pp(i,1)=n:pp(i,2)=s:t=i*8-8
818 print"":gosub26
819 goto815
820 rem
821 fori=0to15:cc(i)=0:nexti:py=0
822 fori=1to5
823 ifpp(i,1)=1thencc(1)=cc(1)+1
824 ifpp(i,1)=2thencc(2)=cc(2)+1
825 ifpp(i,1)=3thencc(3)=cc(3)+1
826 ifpp(i,1)=4thencc(4)=cc(4)+1
827 ifpp(i,1)=5thencc(5)=cc(5)+1
828 ifpp(i,1)=6thencc(6)=cc(6)+1
829 ifpp(i,1)=7thencc(7)=cc(7)+1
830 ifpp(i,1)=8thencc(8)=cc(8)+1
831 ifpp(i,1)=9thencc(9)=cc(9)+1
832 ifpp(i,1)=10thencc(10)=cc(10)+1
833 ifpp(i,1)=11thencc(11)=cc(11)+1
834 ifpp(i,1)=12thencc(12)=cc(12)+1
835 ifpp(i,1)=13thencc(13)=cc(13)+1
836 nexti
837 fori=1to13:ifcc(i)>=4thenpy=25
838 nexti
839 fori=1to13:ifcc(i)=3thengosub852
840 nexti
841 fori=1to13:ifcc(i)=2thengosub859
842 nexti
843 fori=1to9:ifcc(i)=1thengosub868
844 nexti
845 fori=2to5
846 ifpp(i,2)<>pp(1,2)then871
847 nexti
848 ifpy=4thenpy=50:goto850
849 py=6:goto871
850 ifcc(13)=1thenpy=300
851 goto871
852 forj=0toi-1
853 ifcc(j)=2thenpy=9:return
854 nextj
855 forj=i+1to14
856 ifcc(j)=2thenpy=9:return
857 nextj
858 py=3:return
859 forj=0toi-1
860 ifcc(j)=2thenpy=2:return
861 ifcc(j)>2thenreturn
862 nextj
863 forj=i+1to14
864 ifcc(j)=2thenpy=2:return
865 ifcc(j)>2thenreturn
866 nextj
867 py=.5:return
868 forj=i+1toi+4
869 ifcc(j)<>1thenreturn
870 nextj:py=4:return
871 o=o+py:ifo+mm<=0then1127
872 ifpy>0then877
873 print""
874 printtab(26)"payoff: 0"
875 print:printtab(26)"total:";o;"[157] "
876 goto884
877 fori=1topy:gosub4:poke53280,5
878 print""
879 ifpy=.5thenprinttab(26)"payoff:";py:goto881
880 printtab(26)"payoff:";i
881 print:printtab(26)"total:";o-int(py+.6)+i;"[157] ":td=6:goto481
882 nexti
883 poke53280,5
884 print""
885 form=1to1000:nextm
886 printtab(21)" play again?"
887 geta$:ifa$=""then887
888 ifa$="y"then795
889 ifa$="n"thenmm=mm+o:goto308
890 goto887
891 geta$:ifa$=""then891
892 goto795
893 o=0:rem- chuck a luck
894 print"[147]":poke53280,7:poke53281,7:print"[144] chuck-a-luck"
895 print" [146]"
896 fori=1to3:print" [165] [165] [165][160][165][160][165][160][165] ":next
897 print" [146] [205] [205][160][205][206][160][206][160][206][160][160] [146]"
898 print" [146] [205][160][205] [206][160][206] [146]"
899 print" [146][175][175][175][175][175][157][205] [205][206] [206][175][175][175][175] [146]"
900 print" [146][183][183][183][183][183][157][206][160][206][205][160][205][183][183][183][183] [146]"
901 print" [146] [206][160][206] [205][160][205][160] [146]"
902 print" [146] [206][160][206][160][206][205][160][205][160][205] [146]"
903 fori=1to3:print" [146] [165][160][165][160][165][160][165][160][165][160][165] [146]":nexti
904 print" [146] [146] [146]"
905 print" [146] [146]"
906 print" [146] [146]"
907 print" [146]"
908 print" [146]"
909 for k=1to2
910 print""
911 forj=1to9:print" ":nextj
912 print""
913 print" choose choose":print
914 print" your your":print
915 print" number number":print
916 print" (1 to 6)(1 to 6)"
917 fori=1to200:nexti
918 nextk
919 geta$:ifa$=""then919
920 ifa$="1"thena=1:goto927
921 ifa$="2"thena=2:goto927
922 ifa$="3"thena=3:goto927
923 ifa$="4"thena=4:goto927
924 ifa$="5"thena=5:goto927
925 ifa$="6"thena=6:goto927
926 goto919
927 print"[147]":poke53280,13:poke53281,1
928 print"[144]your number"
929 print"[176][192][192][192][174]"
930 fori=1to3:print"[221] [221]":nexti
931 print"[173][192][192][192][189]"
932 print"[144]"
933 ifa=1thenprint"[209]"
934 ifa=2thenprint"[209]":print"[209]"
935 ifa=3thenprint"[209]":print"[209]":print"[209]"
936 ifa=4thenprint"[209] [209]":print"[209] [209]"
937 ifa=5thenprint"[209] [209]":print"[209]":print"[209] [209]"
938 ifa=6thenprint"[209] [209]":print"[209] [209]":print"[209] [209]"
939 fori=1to2
940 print""
941 forj=1to4:printtab(19)" ":nextj:form=1to60:nextm
942 print"":printtab(19)"place your bet":print
943 printtab(19)" (1 to 5)":forj=1to300:nextj
944 nexti
945 getb$:ifb$=""then945
946 ifb$="1"thenb=1:goto952
947 ifb$="2"thenb=2:goto952
948 ifb$="3"thenb=3:goto952
949 ifb$="4"thenb=4:goto952
950 ifb$="5"thenb=5:goto952
951 goto945
952 print""
953 printtab(25)"total bet":print
954 printtab(19)" [176][192][192][192][174][146] "
955 fori=1to3:printtab(19)" [221][146] [221][146] ":nexti
956 printtab(19)" [173][192][192][192][189][146] "
957 print"":printtab(28)b:fori=1to600:nexti
958 print"":printtab(13)"game closed":print
959 printtab(13)" no bets"
960 fori=1to12
961 forj=1to3:t=11*j-7
962 ifj=1thenprint""
963 ifj=2thenprint"[158]"
964 ifj=3thenprint""
965 print""
966 gosub147:r(j)=d:nextj:nexti
967 g=0
968 fori=1to3
969 ifr(i)=athenprint"":printtab(11*i-5)"[144]win":g=g+1
970 nexti
971 p=b*g:ifg=0thenp=-b
972 ifg=0then978
973 fori=1top
974 print" you win! - your payoff is $";i:gosub4:poke53280,5
975 print" total:";o+i;"[157] ":td=7:goto481
976 nexti:poke53280,13
977 goto979
978 print" there are no winners":print
979 print" would you like to play again?"
980 o=o+p:ifo+mm<=0then1127
981 print" total:";o;"[157] "
982 geta$:ifa$=""then982
983 ifa$="n"thenmm=mm+o:goto308
984 ifa$="y"then894
985 goto982
986 geta$:ifa$=""then986
987 goto893
988 rem- baccarat
989 print"[147]";:poke53280,6:poke53281,1
990 fori=1to24:print" ":next
991 print" [146]"
992 fori=40to1000step40:poke55295+i,6:poke1023+i,224:nexti:o=0
993 t=3:print"":gosub16
994 t=11:print"":gosub16
995 t=21:print"":gosub16
996 t=29:print"":gosub16
997 print" dealer"
998 print" player"
999 print"your wager, please?"
1000 print" (10,20,30,40,50) "
1001 print"total:";o;"[157] "
1002 geta$:ifa$=""then1002
1003 ifa$="1"thenb=10:goto1009
1004 ifa$="2"thenb=20:goto1009
1005 ifa$="3"thenb=30:goto1009
1006 ifa$="4"thenb=40:goto1009
1007 ifa$="5"thenb=50:goto1009
1008 goto1002
1009 fori=1to3:forj=1to2:pp(i,j)=0:next:next:k=1:ss=0
1010 print" "
1011 print" "
1012 print"wager:";b;"[157] "
1013 t=21:print"":gosub8:pp(1,2)=n:gosub26:form=1to600:nextm
1014 t=29:print"":gosub8:pp(2,2)=n:gosub26:form=1to600:nextm
1015 i=2:gosub254:pt=tl
1016 print"player has:";pt:form=1to600:nextm
1017 ifpt>7then1120
1018 goto1029
1019 print"player will stand"
1020 form=1to600:nextm:goto1034
1021 print"player will draw "
1022 form=1to600:nextm
1023 print"":t=25:gosub16:form=1to600:nextm
1024 print"":t=25:gosub8:pp(3,2)=n:gosub26:gosub254:pt=tl
1025 print:print"player"
1026 print"player has:";pt:form=1to600:nextm
1027 ss=1
1028 goto1019
1029 print"will you draw? "
1030 geta$:ifa$=""then1030
1031 ifa$="y"then1021
1032 ifa$="n"then1019
1033 goto1030
1034 rem- dealer turn
1035 gosub8:pp(1,1)=n:print""
1036 t=3:gosub26:form=1to600:nextm
1037 gosub8:pp(2,1)=n:print""
1038 t=11:gosub26:form=1to600:nextm
1039 i=1:gosub254:dt=tl
1040 print"dealer has:";dt
1041 form=1to600:nextm
1042 ifss=1then1045
1043 ifdt<6then1061
1044 goto1069
1045 ifdt<3then1061
1046 ifdt=3andpp(3,2)=8then1069
1047 ifdt=3then1061
1048 ifdt=4andpp(3,2)=1then1069
1049 ifdt=4andpp(3,2)=8then1069
1050 ifdt=4andpp(3,2)=9then1069
1051 ifdt=4andpp(3,2)=10then1069
1052 ifdt=4then1061
1053 ifdt=5andpp(3,2)=5then1069
1054 ifdt=5andpp(3,2)=6then1069
1055 ifdt=5andpp(3,2)=7then1069
1056 ifdt=5then1061
1057 ifdt=6andpp(3,2)=6then1061
1058 ifdt=6andpp(3,2)=7then1061
1059 ifdt=6then1069
1060 goto1069
1061 print"dealer will draw"
1062 form=1to600:nextm
1063 print"":t=7:gosub16:form=1to600:nextm
1064 gosub8:pp(3,1)=n
1065 print"":t=7:gosub26
1066 print" dealer"
1067 i=1:gosub254:dt=tl
1068 print"dealer has:";dt
1069 print"dealer will stand"
1070 form=1to900:nextm
1071 i=1:gosub254:dt=tl
1072 ifdt>ptthen1075
1073 ifdt<ptthen1085
1074 ifdt=ptthen1096
1075 print" "
1076 print""
1077 form=1to8
1078 print" "
1079 nextm
1080 print" i'm sorry, "
1081 print"the house wins"
1082 o=o-b:ifo+mm<=0then1127
1083 print"total:";o;"[157] "
1084 goto1104
1085 print" "
1086 print""
1087 form=1to8
1088 print" "
1089 nextm
1090 print" congratulations,"
1091 print"you've won!"
1092 o=o+b
1093 print"total:";o;"[157] "
1094 gosub4:poke53280,6:td=8:goto481
1095 goto1104
1096 print" "
1097 print""
1098 form=1to8
1099 print" "
1100 nextm
1101 print" push - no winner"
1102 print"total:";o;"[157] "
1103 goto1104
1104 form=1to1000:nextm
1105 print" "
1106 print" "
1107 print" play again? "
1108 geta$:ifa$=""then1108
1109 ifa$="y"then1112
1110 ifa$="n"thenmm=mm+o:goto308
1111 goto1108
1112 print""
1113 fori=1to22
1114 print" "
1115 nexti
1116 printtab(20)" ";
1117 goto993
1118 geta$:ifa$=""then1118
1119 goto993
1120 print"you have a natural"
1121 gosub8:print"":t=3:pp(1,1)=n:gosub26:form=1to500:nextm
1122 gosub8:print"":t=11:pp(2,1)=n:gosub26:form=1to500:nextm
1123 i=1:gosub254:dt=tl
1124 print"dealer has:";dt
1125 form=1to600:nextm
1126 goto1072
1127 print"[147]":poke53280,8:poke53281,3
1128 print""
1129 print" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1130 print" [180] friendly finance company [170]"
1131 print" [180] [170]"
1132 print" [180] (let the borrower beware) [170]"
1133 print" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1134 fori=1to1000:nexti:mm=mm+o:ifxx=1then1143
1135 print" can i be of help to you?":print" you owe $";-mm
1136 fori=1to1000:nexti:print
1137 print" would you like to borrow $ 50?"
1138 geta$:ifa$=""then1138
1139 ifa$="y"then1142
1140 ifa$="n"then1157
1141 goto1138
1142 ifxx=0thenmm=mm+50:xx=1:goto308
1143 print"[147]":poke53280,0:poke53281,0
1144 print"[147] you've already lost your $ 50":print
1145 fori=1to1000:nexti
1146 print:print" then you lost my $ 50":print:print:print
1147 fori=1to1500:nexti
1148 print" now you're broke and owe me $ 100":print
1149 fori=1to2000:nexti
1150 print" get out of here!! while you can!"
1151 fori=1to3000:nexti
1152 goto1157
1153 geta$:ifa$=""then1153
1154 goto308
1155 geta$:ifa$=""then1155
1156 goto993
1157 print"[147][154]":poke53280,14:poke53281,6